home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / gfx / misc / pchglib12.lha / BuildFreqTable.a next >
Text File  |  1992-11-15  |  353b  |  25 lines
  1.  
  2.         CSECT text,0,,1,2
  3.  
  4.         XDEF    PCHG_BuildFreqTable
  5.  
  6. ;
  7. ;  void __asm PCHG_BuildFreqTable(    register __a0 void *Source,
  8. ;                    register __d0 ULONG Length,
  9. ;                    register __a1 ULONG *FreqTable);
  10. ;
  11. ;
  12.  
  13. PCHG_BuildFreqTable
  14.         moveq    #0,d1
  15.         move.b    (a0)+,d1
  16.         add.w    d1,d1
  17.         add.w    d1,d1
  18.         addq.l    #1,0(a1,d1.w)
  19.         subq.l    #1,d0
  20.         bne.s    PCHG_BuildFreqTable
  21.         rts
  22.  
  23.         END
  24.  
  25.